home *** CD-ROM | disk | FTP | other *** search
- 60 REM **********************
- 70 REM * PROGRAMMABLE KEYS *
- 80 REM * BY PAUL RAYMER *
- 90 REM * COPYRIGHT (C) 1984 *
- 100 REM * BY MICROSPARC, INC *
- 110 REM * LINCOLN, MA. 01773 *
- 120 REM **********************
- 130 TEXT : HOME : CLEAR
- 140 X = 1:Q$ = CHR$(34)
- 150 DIM A$(96),Z$(96)
- 160 VTAB 1: HTAB 1: PRINT "TO STOP...PRESS <RETURN> WITH NO ENTRY"
- 170 VTAB 5: HTAB 1: CALL -958: PRINT "WHAT KEY WOULD YOU LIKE TO CHANGE? ";: GET A$(X): INVERSE : PRINT A$(X): NORMAL
- 180 IF A$(X) = CHR$(13) THEN 250
- 190 PRINT : PRINT "CHANGE IT TO WHAT? ";: GET Z$(X):: INVERSE : PRINT Z$(X): NORMAL
- 200 PRINT : HTAB 12: PRINT Q$;A$(X);Q$;" IS TO BE ";Q$;Z$(X);Q$;
- 210 PRINT : PRINT : PRINT "IS THIS CORRECT? ";: GET V$
- 220 IF V$ < >"Y" THEN 170
- 230 X = X +1
- 240 GOTO 170
- 250 HOME
- 260 PRINT "TYPE ANYTHING...PRESS <ESC> TO QUIT...": PRINT : PRINT
- 270 GET L$
- 280 IF L$ = CHR$(27) THEN 340
- 290 FOR A = 1 TO X
- 300 IF A$(A) = L$ THEN PRINT Z$(A);:A = X: GOTO 330
- 310 NEXT A
- 320 PRINT L$;
- 330 GOTO 270
- 340 VTAB 22: HTAB 1: END